home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n13.arc / CONVERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-06-10  |  5.0 KB  |  74 lines
  1. «RHA«VA$FI»          p. «pn» of «fp»
  2.  
  3. »«PT3»«AL1»«LM0»«RM80»
  4. 100 REM - BASIC PROGRAM TO CREATE CONVERT.COM 
  5. 110 CLS:PRINT "Creating CONVERT.COM ": OPEN "CONVERT.COM " AS #1 LEN = 1
  6. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  7. 130 FOR I = 1 TO    52
  8. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    52 - I ;
  9. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  10. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  11. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  12. 180  NEXT J
  13. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  14. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  15. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  16. 220 NEXT I
  17. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  18. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  19. 250 PRINT: PRINT "CONVERT.COM  created successfully": SYSTEM
  20. 260 PRINT: PRINT "CONVERT.COM  is not valid!": END
  21. 270 DATA E9,  E,  1,  D, 20, 20, 20,  D,  A, 43, 4F, 4E, 56, 45, 52, 54,   39D
  22. 280 DATA 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 39, 20, 5A, 69,   341
  23. 290 DATA 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E,   642
  24. 300 DATA 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69,   496
  25. 310 DATA 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20,   57C
  26. 320 DATA 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  A, 53, 79, 6E, 74, 61, 78,   56B
  27. 330 DATA 3A, 20, 20, 43, 4F, 4E, 56, 45, 52, 54, 20, 6E, 75, 6D, 62, 65,   4D2
  28. 340 DATA 72, 5B, 2D, 6E, 75, 6D, 62, 65, 72, 5D, 5B, 72, 61, 64, 69, 78,   653
  29. 350 DATA 5D, 20, 7C, 20, 22, 63, 68, 61, 72, 61, 63, 74, 65, 72, 28, 73,   583
  30. 360 DATA 29, 22,  D,  A, 72, 61, 64, 69, 78, 3A, 20, 20, 62, 20, 3D, 20,   3D3
  31. 370 DATA 62, 69, 6E, 61, 72, 79, 2C, 20, 68, 20, 3D, 20, 68, 65, 78, 61,   55C
  32. 380 DATA 64, 65, 63, 69, 6D, 61, 6C, 2C, 20, 6F, 20, 3D, 20, 6F, 63, 74,   54D
  33. 390 DATA 61, 6C,  D,  A, 64, 65, 66, 61, 75, 6C, 74, 20, 69, 73, 20, 64,   549
  34. 400 DATA 65, 63, 69, 6D, 61, 6C,  A, 24, 1A, 49, 6E, 76, 61, 6C, 69, 64,   57A
  35. 410 DATA 20, 70, 61, 72, 61, 6D, 65, 74, 65, 72,  D,  A, 6E, 75, 6D, 62,   5AA
  36. 420 DATA 65, 72, 20, 72, 61, 6E, 67, 65, 3A, 20, 30, 20, 2D, 20, 36, 35,   466
  37. 430 DATA 35, 33, 35,  D,  A, 24, 48, 4F, 42, FB,  2, 2A,  3, 50,  3, 17,   345
  38. 440 DATA  3, FC, 80, 3E, 80,  0,  0, 75,  3, E9, 89,  0, B2,  A, E8,  0,   5CB
  39. 450 DATA  2, BE, 82,  0, 8B, EE, AC, 3C,  D, 74, 35, 3C, 22, 74, 12, 3C,   579
  40. 460 DATA 2D, 75, F3, 81, FD, 82,  0, 75, 27, 56, E8, 74,  0, 5E, 53, EB,   77F
  41. 470 DATA E3, 33, DB, AC, 3C,  D, 74, 5D, 8A, D8, AC, 3C,  D, 74,  D, 3C,   6CB
  42. 480 DATA 22, 75,  5, 80, 3C, 22, 75,  4, 8A, F8, 86, FB, 33, C9, EB, 14,   6F1
  43. 490 DATA E8, 4E,  0, 33, C9, 81, FD, 82,  0, 74,  9, 59, 3B, CB, 77,  2,   687
  44. 500 DATA 87, D9, 2B, CB, 41, 8B, FB, 51, E8, F1,  0, E8, B0,  1, E8,  E,   8D6
  45. 510 DATA  1, E8, A7,  1, E8, 2C,  1, E8, A1,  1, E8, 4B,  1, E8, 9B,  1,   6E8
  46. 520 DATA E8, 6A,  1, B2,  D, E8, 89,  1, B2,  A, E8, 84,  1, 47, 59, E2,   72F
  47. 530 DATA D6, 32, C0, EB,  8, BA,  3,  1, E8, 7B,  1, B0,  1, B4, 4C, CD,   75B
  48. 540 DATA 21, 4E, 8B, CE, 8B, F5, 3B, F1, 74,  F, AC, 3C, 61, 72, F7, 3C,   7E5
  49. 550 DATA 7A, 77, F3, 80, 64, FF, 5F, EB, ED, 8B, F5, 2B, CD, 51, 87, CB,   A19
  50. 560 DATA AC, B9,  3,  0, BF,  6,  2, F2, AE, 74,  7, 87, CB, E2, EF, B9,   826
  51. 570 DATA  3,  0, D1, E1, BF,  F,  2, 2B, F9, 59, 8B, F5, 33, DB, FF, 15,   7A4
  52. 580 DATA BA, D9,  1, 73,  5, E8, 2E,  1, EB, AB, C3, AC, 2C, 30, 72, 13,   709
  53. 590 DATA 3C,  9, 77,  F, 98, 93, 51, B9,  A,  0, F7, E1, 59, 72,  7,  3,   5B7
  54. 600 DATA D8, 72,  3, E2, E6, F8, C3, AC, 2C, 30, 72,  A, 3C,  1, 77,  6,   70E
  55. 610 DATA D1, E3, 72,  5,  A, D8, E2, EF, F8, C3, AC, 2C, 30, 72, 1D, 3C,   86C
  56. 620 DATA  9, 7E,  A, 2C,  7, 3C,  A, 72, 13, 3C,  F, 77,  F, F7, C3,  0,   41A
  57. 630 DATA F0, F9, 75,  B, 51, B1,  4, D3, E3, 59,  A, D8, E2, DC, F8, C3,   9D9
  58. 640 DATA AC, 2C, 30, 72, 13, 3C,  7, 77,  F, F7, C3,  0, E0, F9, 75,  B,   669
  59. 650 DATA 51, B1,  3, D3, E3, 59,  A, D8, E2, E6, F8, C3, 8B, C7, BB,  A,   990
  60. 660 DATA  0, 33, C9, 33, D2, F7, F3, 80, C2, 30, 52, 41, 3D,  0,  0, 75,   6A2
  61. 670 DATA F2, 8B, D9, 5A, E8, 9A,  0, E2, FA, B9,  A,  0, 2B, CB, C3, 8B,   915
  62. 680 DATA DF, B9,  4,  4, D3, C3, 8A, D3, 80, E2,  F, 80, C2, 30, 80, FA,   8F0
  63. 690 DATA 39, 7E,  3, 80, C2,  7, E8, 78,  0, FE, CD, 75, E7, B2, 68, E8,   88C
  64. 700 DATA 6F,  0, C3, 8B, DF, B9,  3,  6, D1, C3, 8A, D3, 80, E2,  1, EB,   89D
  65. 710 DATA  7, D3, C3, 8A, D3, 80, E2,  7, 80, C2, 30, E8, 53,  0, FE, CD,   8DB
  66. 720 DATA 75, EF, B2, 6F, E8, 4A,  0, C3, 8B, DF, B5, 10, D1, C3, 8A, D3,   99A
  67. 730 DATA 80, E2,  1, 80, C2, 30, E8, 38,  0, 80, FD,  9, 75,  5, B2, 20,   6C7
  68. 740 DATA E8, 2E,  0, FE, CD, 75, E5, B2, 62, E8, 25,  0, C3, 32, FF, B8,   908
  69. 750 DATA 22,  E, CD, 10, B9,  3,  0, B8, 22,  A, CD, 10, B9,  2,  0, 8B,   4D0
  70. 760 DATA C7, B4,  A, CD, 10, B9,  1,  0, 8B, C7, 86, C4, B4,  A, CD, 10,   753
  71. 770 DATA C3, B4,  2, CD, 21, C3, B4,  9, CD, 21, C3, B9,  5,  0, B2, 20,   728
  72. 780 DATA E8, EE, FF, E2, F9, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   573
  73. 790 DATA 88551
  74.